gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\orderInfo.asp
<% dim rsObj,strSQL dim orderID orderID = RealString(Request.QueryString("orderID")) set rsObj = Server.CreateObject("ADODB.RecordSet") if orderID = "" then orderID = 0 strSQL = "SELECT * FROM OrderList WHERE id = "& orderID &" AND memberID = '"&Session("memberID")&"'" rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly %> <TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = "100%" borderColorLight = #aaaaaa border = 1 ID = "Table1"> <tr bgcolor = "#FFDFC6"> <td colspan = "2" nowrap bgcolor = "rgb(210,232,255)"> <div align = "center">查看订单(订单号:<%=orderID%>) </div> </td> </tr> <%if not (rsObj.eof or err) then %> <tr> <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> <div align = "right">客户帐号</div> </td> <td width = "88%"><%=rsObj("memberID")%> </td> </tr> <tr> <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> <div align = "right">收货人姓名</div> </td> <td width = "88%"><%=rsObj("customerName")%> </td> </tr> <tr> <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> <div align = "right">收货人地址</div> </td> <td width = "88%"><%=rsObj("address")%> </td> </tr> <tr> <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> <div align = "right">邮政编码</div> </td> <td width = "88%"><%=rsObj("zipcode")%> </td> </tr> <tr> <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> <div align = "right">联系电话</div> </td> <td width = "88%"><%=rsObj("phone")%> </td> </tr> <tr> <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> <div align = "right">电子邮件</div> </td> <td width = "88%"><%=rsObj("email")%> </td> </tr> <tr> <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> <div align = "right">付款方式</div> </td> <td width = "88%"><%=rsObj("payment")%> </td> </tr> <tr> <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> <div align = "right">备注</div> </td> <td width = "88%"><%=rsObj("remark")%> </td> </tr> <tr> <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> <div align = "right">订货日期</div> </td> <td width = "88%"><%=rsObj("createDate")%> </td> </tr> <tr> <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> <div align = "right">发货日期</div> </td> <td width = "88%"><%=rsObj("treatedDate")%> </td> </tr> <tr> <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> <div align = "right">发货备注</div> </td> <td width = "88%"><%=rsObj("treatedRemark")%> </td> </tr> </table> <% '手机明细 strSQL = "SELECT * FROM orderDetail WHERE orderID = "& orderID set rsObj = conn.execute (strSQL) %> <TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = "100%" borderColorLight = #aaaaaa border = 1 ID = "Table2"> <tr bgcolor = "#FFEFB0"> <td width = "10%" bgcolor = "rgb(210,232,255)"> <div align = "center">手机编号</div> </td> <td width = "46%" bgcolor = "rgb(210,232,255)"> <div align = "center">手机名称</div> </td> <td width = "13%" bgcolor = "rgb(210,232,255)"> <div align = "center">手机价格</div> </td> <td width = "14%" bgcolor = "rgb(210,232,255)"> <div align = "center">手机数量</div> </td> <td width = "17%" bgcolor = "rgb(210,232,255)"> <div align = "center">金额小计</div> </td> </tr> <% dim totalPrice totalPrice = 0 do while (not rsObj.eof or err) %> <tr> <td width = "10%"> <div align = "center"><%=rsObj("productID")%> </div> </td> <td width = "46%"> <div align = "center"><%=rsObj("productName")%> </div> </td> <td width = "13%"> <div align = "center"><%=rsObj("price")%> </div> </td> <td width = "14%"> <div align = "center"><%=rsObj("quantity")%> </div> </td> <td width = "17%"> <div align = "center"> <%if rsObj("price")<>"" AND rsObj("quantity")<>"" then Response.Write rsObj("price")*rsObj("quantity")%> </div> </td> </tr> <% if rsObj("price")<>"" AND rsObj("quantity")<>"" then totalPrice = totalPrice+rsObj("price")*rsObj("quantity") end if rsObj.MoveNext loop %> <tr bgcolor = "#FFEFB0"> <td colspan = "5" bgcolor = "rgb(210,232,255)"> <div align = "right">总计金额:<%=totalPrice%>元 </div> </td> </tr> <tr bgcolor = "#FFCC00"> <td colspan = "5" bgcolor = "#FFFFFF"> <div align = "center"> <input type = "button" name = "Submit3" value = "返 回" onClick = "window.history.go(-1);" style = "border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Button1"> </div> </td> </tr> </table> <% else Response.Write "</table><br><center>您没有此订单(如未登陆请登陆后再查询),<a href = 'Javascript:window.history.go(-1);'>返回</a></center>" end if %></TD></TR> </TBODY></TABLE>